home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / ip / ka9q / net_src.arc / cmdparse.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-05-08  |  5.2 KB  |  207 lines
  1. /* Parse command line, set up command arguments Unix-style, and call function.
  2.  * Note: argument is modified (delimiters are overwritten with nulls)
  3.  * Improved error handling by Brian Boesch of Stanford University
  4.  */
  5. #include <stdio.h>
  6. #include <ctype.h>
  7. #include "global.h"
  8. #include "cmdparse.h"
  9.  
  10. int
  11. cmdparse(cmds,line)
  12. struct cmds cmds[];
  13. register char *line;
  14. {
  15.     register struct cmds *cmdp;
  16.     char *argv[NARG],*cp,*pp,*vp,*ep,*rp,*getenv();
  17.     static char pool[POOLSIZE];
  18.     int argc,quote;
  19.     int rslt;
  20.  
  21.     /* Remove cr/lf */
  22.     rip(line);
  23.  
  24.     for(argc = 0;argc < NARG;argc++)
  25.         argv[argc] = NULLCHAR;
  26.  
  27.     pp = pool;
  28.  
  29.     for(argc = 0;argc < NARG && *line != '\0';){
  30.         quote = 0;
  31.         /* Skip leading white space */
  32.         while(*line == ' ' || *line == '\t')
  33.         line++;
  34.         if(*line == '\0')
  35.         break;
  36.         /* Check for quoted token */
  37.         if(*line == '"' || *line == '\'')
  38.         quote = *line++;    /* Suppress quote, remember it */
  39.         argv[argc++] = line;    /* Beginning of token */
  40.         /* Find terminating delimiter */
  41.         if(quote){
  42.         /* Find quote, it must be present */
  43.         if((line = index(line,quote)) == NULLCHAR)
  44.             return -1;
  45.  
  46.         *line++ = '\0';
  47.         } else {
  48.         /* Find space or tab. If not present,
  49.          * then we've already found the last
  50.          * token.
  51.          */
  52.         for (cp = line; *cp; cp++)
  53.             if (*cp == ' ' || *cp == '\t')
  54.             break;
  55.         if (*cp != '\0')
  56.             *cp++ = '\0';
  57.         line = cp;
  58.         }
  59.         /* Check for variablename */
  60.         if(quote != '\'' && index(cp = argv[argc - 1],'$') != NULLCHAR){
  61.         argv[argc - 1] = pp;
  62.         while (*cp != '\0') {
  63.             if (*cp != '$')
  64.             *pp++ = *cp++;
  65.             else {
  66.             if (*++cp == '{') {
  67.                 if ((ep = index(++cp,'}')) == NULLCHAR)
  68.                 return -1;
  69.                 *ep++ = '\0';
  70.             } else {
  71.                 ep = NULLCHAR;
  72.             }
  73.             /* Scan to end of varname and mark it */
  74.             for (vp = cp; isalnum(*vp) || *vp == '_'; vp++)
  75.                 *vp = toupper(*vp);
  76.             /* If a name found, get value */
  77.             if (vp != cp){
  78.                 rslt = *vp;            /* save next and make \0 */
  79.                 *vp = '\0';
  80.                 rp = getenv(cp);
  81.                 *vp = rslt;            /* restore next character */
  82.                 if (ep == NULLCHAR){    /* no braces */
  83.                 if (rp == NULLCHAR)    /* undef'd var */
  84.                     rp = "";        /* then just empty */
  85.                 } else {
  86.                 if (rp == NULLCHAR)    /* undef'd var */
  87.                     switch (rslt) {    /* else look at next */
  88. /*                    case '=': */
  89. /*                    dosetenv(2,(&cp)-1);/* assign and subst */
  90.                     case '-':
  91.                     rp = vp + 1;    /* subst next word */
  92.                     break;
  93.                     case '?':
  94.                     if (*++vp == '\0')
  95.                     vp = "undefined variable";
  96.                     printf("%s\n",vp);
  97.                     return -1;
  98.                     default:
  99.                     rp = "";    /* default is empty */
  100.                     }
  101.                 else
  102.                     if (rslt == '+')    /* defined and subst */
  103.                     rp = vp + 1;
  104.                 }
  105.                 /* Copy the result to the pool */
  106.                 while (*pp++ = *rp++)
  107.                 ;
  108.                 pp--;
  109.                 cp = vp;
  110.             }
  111.             if (ep != NULLCHAR)
  112.                 cp = ep;
  113.             }
  114.         }
  115.         *pp++ = '\0';
  116.         if (pp > pool + POOLSIZE){    /* check pool overflow */
  117.             printf("panic: pool overflow\n");
  118.             fflush(stdout);
  119.             for (;;)            /* dangerous to continue */
  120.             ;
  121.         }
  122.         }
  123.     }
  124.     if (argc < 1) {        /* empty command line */
  125.         argc = 1;
  126.         argv[0] = "";
  127.     }
  128.     /* Lines beginning with "#" are comments */
  129.     if(argv[0][0] == '#')
  130.         return 0;
  131.  
  132.     /* Look up command in table; prefix matches are OK */
  133.     for(cmdp = cmds;cmdp->name != NULLCHAR;cmdp++){
  134.         if(strncmp(argv[0],cmdp->name,strlen(argv[0])) == 0)
  135.             break;
  136.     }
  137.     if(cmdp->name == NULLCHAR) {
  138.         if(cmdp->argc_errmsg != NULLCHAR)
  139.             printf("%s\n",cmdp->argc_errmsg);
  140.         return -1;
  141.     } else {
  142.         if(argc < cmdp->argcmin) {
  143.             /* Insufficient arguments */
  144.                 printf("Usage: %s\n",cmdp->argc_errmsg); 
  145.             return -1;
  146.         } else {
  147.             argv[0] = cmdp->name;
  148.             rslt = (*cmdp->func)(argc,argv);
  149.             if ((rslt < 0) && (cmdp->exec_errmsg != NULLCHAR))
  150.                 printf("%s\n",cmdp->exec_errmsg);
  151.             return(rslt);
  152.         }
  153.     }
  154. }
  155.  
  156. /* Call a subcommand based on the first token in an already-parsed line */
  157. int
  158. subcmd(tab,argc,argv)
  159. struct cmds tab[];
  160. int argc;
  161. char *argv[];
  162. {
  163.     int rslt,len;
  164.     register struct cmds *cmdp;
  165.  
  166.     /* Strip off first token and pass rest of line to subcommand */
  167.     if (argc < 2) {
  168.         if (argc < 1)
  169.             printf("SUBCMD - Don't know what to do?\n");
  170.         else
  171.             printf("\"%s\" - takes at least one argument\n",argv[0]);
  172.         return -1;
  173.     }
  174.     for(cmdp = tab;cmdp->name != NULLCHAR;cmdp++){
  175.         if(strncmp(argv[1],cmdp->name,strlen(argv[1])) == 0){
  176.             if(--argc < cmdp->argcmin) {
  177.                 if (cmdp->argc_errmsg != NULLCHAR)
  178.                     printf("Usage: %s\n",cmdp->argc_errmsg); 
  179.                 return -1;
  180.             } else {
  181.                 (++argv)[0] = cmdp->name;
  182.                 rslt = (*cmdp->func)(argc,argv);
  183.                 if ((rslt < 0) && (cmdp->exec_errmsg != NULLCHAR))
  184.                     printf("%s\n",cmdp->exec_errmsg);
  185.                 return(rslt);
  186.             }
  187.         }
  188.     }
  189.     if (cmdp->argc_errmsg != NULLCHAR){
  190.         if (cmdp->argc_errmsg[0] != '?'){
  191.             printf("%s\n",cmdp->argc_errmsg);
  192.         } else {
  193.             printf("%s %s:",argv[0],cmdp->argc_errmsg + 1);
  194.             len = strlen(argv[0]) + strlen(cmdp->argc_errmsg) + 1;
  195.             for(cmdp = tab;cmdp->name != NULLCHAR;cmdp++){
  196.                 if ((len += strlen(cmdp->name) + 1) > 79){
  197.                     len = strlen(cmdp->name) + 9;
  198.                     printf("\n        ");
  199.                 }
  200.                 printf(" %s",cmdp->name);
  201.             }
  202.             printf("\n");
  203.         }
  204.     }
  205.     return -1;
  206. }
  207.